home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / mailable.arc / ML2LIST.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.9 KB  |  94 lines
  1. * ML2LIST.CMD
  2. * TO LIST ML2.DBF FILE SEVERAL WAYS
  3. ERASE
  4. SET TALK OFF
  5. DO WHILE T
  6. ERASE
  7.   ?
  8.   ?
  9.   ?'            GENERATE LISTS FROM MAILING LIST'
  10.   ?
  11.   ?'            0 - EXIT TO MAIN MENU'
  12.   ?'            1 - ENTIRE RECORD'
  13.   ?'            2 - NAME, HOME PHONE AND WORK PHONE'
  14.   ?'            3 - RECORD NUMBER AND NAME'
  15.   ?'            4 - RECORD NUMBER, EXPIRE DATE AND NAME'
  16.   ?'            5 - NAME, ADDRESS ON ONE LINE'
  17.   ?
  18.   ?'Enter desired action:'
  19. WAIT TO ACTION
  20. IF ACTION='0'
  21.         DO ML2
  22. ENDIF
  23. IF ACTION='1'
  24.         STORE 'DO ML2REC' TO COMMAND
  25. ENDIF
  26. IF ACTION='2'
  27.         STORE '? NAME + HPHONE + WPHONE'TO COMMAND
  28. ENDIF
  29. IF ACTION='3'
  30.         STORE 'DISPLAY SORT NAME' TO COMMAND
  31. ENDIF
  32. IF ACTION='4'
  33.         STORE 'DISP NAME EXPIRE' TO COMMAND
  34. ENDIF
  35. IF ACTION='5'
  36.     STORE 'DO ML2LST1' TO COMMAND
  37. ENDIF
  38. * DETERMINE MODE
  39. ERASE
  40. ?
  41. ?
  42. ?
  43. ?'                      RECORD SELECTION'
  44. ?
  45. ?
  46. ?'              1 - GET RECORD NUMBER FROM KEYBOARD'
  47. ?
  48. ?'              2 - USE SPECIFIED INDEX FILE'
  49. ?
  50. ?'              3 - PRINT ENTIRE DATA FILE'
  51. ?
  52. ?
  53. ?' ENTER SELECTION'
  54. WAIT TO MODE
  55. ERASE
  56. ?
  57. ?
  58. ACCEPT 'USE PRINTER? (Y/N)' TO PTR
  59. IF !(PTR) = 'Y'
  60.    SET TALK OFF
  61.    SET PRINT ON
  62. ENDIF
  63. IF MODE='1'
  64.         ERASE
  65.         DO WHILE T
  66.           ACCEPT "RECORD NUMBER" TO RECNO
  67.           GOTO RECORD &RECNO
  68.           &COMMAND
  69.         ENDDO
  70. ENDIF
  71. IF MODE='2'
  72.         ERASE
  73.         ACCEPT "INDEX FILE NAME" TO FILNAME
  74.         USE &BASE INDEX &FILNAME
  75.         DO WHILE .NOT. EOF
  76.                 &COMMAND
  77.                 SKIP
  78.         ENDDO
  79. ENDIF
  80. IF MODE='3'
  81.         ERASE
  82.         USE &BASE
  83.         GO TOP
  84.         DO WHILE .NOT. EOF
  85.                 &COMMAND
  86.                 SKIP
  87.         ENDDO
  88. ENDIF
  89. SET PRINT OFF
  90. SET CONSOLE ON
  91. SET TALK ON
  92. ENDDO
  93. RETURN
  94.